home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zi.d64 / txt.command < prev    next >
Text File  |  2007-03-01  |  657b  |  37 lines
  1. ┴ ╙╒┬╙╘╔╘╒╘┼ ╞╧╥ ╨┴╙╙
  2.  
  3. BY ─ICK ╦LINGENS
  4. ─UTCH ├╧═┴╠ ╒SERS ╟ROUP
  5.  
  6.  
  7. ┼XECUTION OF THE STATEMENT
  8.  
  9.    ╨┴╙╙ <COMMAND>
  10.  
  11. INTERRUPTS PROGRAM EXECUTION UNTIL
  12. THE ─╧╙ OPERATION HAS BEEN FINISHED.
  13. ╔T IS THE SAME WHEN ╨┴╙╙ IS GIVEN IN
  14. DIRECT MODE.
  15.  
  16. ╘HE FOLLOWING PROCEDURE IS DEVELOPED
  17. FOR IMPATIENT PROGRAMMERS, BECAUSE
  18. CONTINUING THE WORK IS POSSIBLE AFTER
  19. THE COMMAND.
  20.  
  21. ╨╥╧├ COMMAND(X$) ├╠╧╙┼─
  22.  NAME$:="U8:"+X$+"/S15/D-"
  23.  ╧╨┼╬ ╞╔╠┼ 99,NAME$,╫╥╔╘┼
  24.  ╨╧╦┼ 152.╨┼┼╦(152)-1
  25.  // CLOSING THE LAST OPENED FILE
  26.  // DON'T USE ├╠╧╙┼ ╞╔╠┼ 99!
  27. ┼╬─╨╥╧├
  28. //
  29. // EXAMPLE:
  30. COMMAND("V0")
  31.  
  32. ╘HE PROCEDURE EMULATES THE ┬┴╙╔├
  33. COMMAND
  34.    ╧╨┼╬ 15,8,15,╪$
  35.  
  36. ┴ SMALL DEMO PROGRAM IS ON THE DISK.
  37.